home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
FACTOR.LI
< prev
next >
Wrap
Text File
|
1993-10-06
|
182b
|
5 lines
# factor(poly, x) factors poly with respect to x
# e.g. factor(x^4-4, x) gives (-2+x)(2+x)
factor(y_, x_) := block(root:=right(solve(y=0,x)), prod(x-root[j], j,1,order(y,x),1))